{ find out whether complete division or partial occurred }
function DivCheck(divby: integer; into: integer; var leftover: integer): integer;
begin
  result:= into div divby;
  leftover:= into mod divby ;
end;

var
  LeftOver: integer;
begin
  writeln('Divides completely: ', divcheck(6, 10, LeftOver), ' times.');
  writeln('Leftover: ', LeftOver);
  readln;
end.